home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D3.D64 / super tact (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  354 b   |  13 lines
  1. 10 IFX=0THENGOTO60
  2. 20 IFX=1THENX=X+1:LOAD"SPRITES",8,1
  3. 30 IFX=2THENX=X+1:LOAD"CHARS",8,1
  4. 40 IFX=3THENX=X+1:LOAD"M/CODE",8,1
  5. 50 IFX=4THENGOTO110
  6. 60 PRINT"[147]":POKE53280,0:POKE53281,0
  7. 70 PRINT"       SUPER - TACT WILL NOW LOAD"
  8. 80 PRINT"         AND RUN AUTOMATICALLY."
  9. 90 FORI=0TO2000:NEXTI
  10. 100 X=X+1:GOTO20
  11. 110 PRINT"[147][144]LOAD"+CHR$(34)+"PROGRAM"+CHR$(34)+",8":PRINT"RUN"
  12. 120 FORI=0TO3:POKE631+I,13:NEXTI:POKE198,4:PRINT"":END
  13.